home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / game / think / Marryampic.lha / marryampic / Install < prev    next >
Text File  |  1999-01-24  |  1KB  |  54 lines
  1. ; Marryampic installation script
  2. ; updated : 24 Jan. 1999
  3. ; (no error reported if no drawer 'cards' in the archive)
  4.  
  5. ; check kick version
  6. (if (< (/ (getversion) 65536) 37) (abort "Marryampic requires KickStart v2.0 or + to run !"))
  7.  
  8.  
  9. (set target
  10.     (tackon
  11.         (askdir
  12.             (prompt "In which disk or drawer should the drawer called \"Marryampic\" be created?")
  13.             (help
  14.                 "    The Marryampic program and the CardSet 'Animals' will be installed in a new drawer "
  15.                 "called \"Marryampic\".  You are being asked where this new drawer should be created.  "
  16.                 "If you select \"Work:\", for example, then a new drawer named \"Work:Marryampic\" will be created, "
  17.                 "and Marryampic will be installed into this new drawer.\n"
  18.                 "\n"
  19.                 @askdir-help
  20.             )
  21.             (default @default-dest)
  22.         )
  23.         "Marryampic"
  24.     )
  25. )
  26. (makedir target (infos))
  27. (set @default-dest target)
  28.  
  29. (copyfiles
  30.     (prompt "Copying to " target )
  31.     (help @copyfiles-help)
  32.     (source "")
  33.     (dest target)
  34.     (choices "Marryampic" "Docs" "Catalogs")
  35.     (infos)
  36. )
  37.  
  38. (if (exists "Cards")
  39.  (
  40.     (copyfiles
  41.         (prompt "Copying to " target )
  42.         (help @copyfiles-help)
  43.         (source "")
  44.         (dest target)
  45.         (choices "Cards")
  46.         (infos)
  47.     )
  48.  )
  49.  (
  50.   (set cards-drawer (tackon target "Cards"))
  51.   (makedir cards-drawer (infos))
  52.  )
  53. )
  54.